home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mac Magazin/MacEasy 19
/
Mac Magazin and MacEasy Magazine CD - Issue 19.iso
/
Grafik & Text & Film
/
Quark XTensions
/
Freeware Xtensions
/
Quark AppleScript Scripts
/
Scripts (text only)
/
Preference Checker
< prev
next >
Wrap
Text File
|
1994-06-29
|
9KB
|
236 lines
-- ©1994 Quark, Inc. All rights reserved.
on getAppPreferences()
tell application "QuarkXPress™"
{"Auto Backup is: " & auto backup & return as string, ¬
"Auto Library Save is:" & auto lib save & return as string, ¬
"Auto Save Interval is: " & auto save interval & return as string, ¬
"Color TIFF resolution is: " & color TIFF resolution & return, ¬
"Convert Quotes is: " & convert quotes & return as string, ¬
"Gray TIFF resolution is: " & gray TIFF resolution & return, ¬
"Import Styles is: " & import styles & return as string, ¬
"Live Scroll is: " & live scroll & return as string, ¬
"Full-screen Documents: " & maximize document bounds & return as string, ¬
"Off-screen Draw is: " & offscreen draw & return as string, ¬
"Pasteboard Width is: " & pasteboard width & return as string, ¬
"Reg. Marks Offset is: " & registration marks offset & return as string, ¬
"Smart Quotes is: " & smart quotes & return as string, ¬
"Tile to Multiple Monitors is: " & tile to multiple monitors & return as string, ¬
"Total Backups are/is: " & total backups & return & return as string}
end tell
end getAppPreferences
on getDefaultDocPrefs()
tell document 1 of application "QuarkXPress™"
{"Automatic Text Box is: " & automatic text box & return, ¬
"Bottom Margin is: " & bottom margin & return as string, ¬
"Left Margin is: " & left margin & return as string, ¬
"Right Margin is: " & right margin & return as string, ¬
"Top Margin is: " & top margin & return as string, ¬
"Facing Pages is: " & facing pages & return, ¬
"Gutter Width is: " & gutter width & return as string, ¬
"Inside Margin is: " & inside margin & return as string, ¬
"Outside Margin is: " & outside margin & return as string, ¬
"Page Height is: " & page height & return as string, ¬
"Page Width is: " & page width & return as string, ¬
"Spread Height is: " & spread height & return as string, ¬
"Spread Width is: " & spread width & return & return as string}
end tell
end getDefaultDocPrefs
on getGeneralPrefs()
tell document 1 of application "QuarkXPress™"
{"Accurate Blends is: " & low quality blends & return as string, ¬
"Auto Constrain is: " & auto constrain & return as string, ¬
"Auto Page Insertion location is: " & auto page insertion location & return, ¬
"Auto Picture Import is: " & auto picture import & return, ¬
"Ciceros/cm is: " & ciceros per centimeter & return as string, ¬
"Frame Inside is: " & frame inside & return as string, ¬
"Greek Below is: " & greek below & return as string, ¬
"Greek Pictures is: " & greek pictures & return as string, ¬
"Guides In Front is: " & guides in front & return as string, ¬
"Horizontal Measure is: " & horizontal measure & return, ¬
"Vertical Measure is: " & vertical measure & return, ¬
"Item Spread Coordinates is: " & item spread coords & return as string, ¬
"Keep Master Page Items is: " & keep master page items & return as string, ¬
"Points/Inch is: " & points per inch & return as string, ¬
"Snap Distance is: " & snap distance & return & return & return as string}
end tell
end getGeneralPrefs
on getTypoPrefs()
tell document 1 of application "QuarkXPress™"
{"Auto Kern is: " & auto kern & return, ¬
"Auto Leading is: " & auto leading & return, ¬
"Baseline Grid Increment is: " & baseline grid increment & return as string, ¬
"Baseline Grid Start is: " & baseline grid start & return as string, ¬
"Enhanced Hyphenation Method is: " & enhanced hyphenation method & return, ¬
"Flex Space Width is: " & flex space width & return as string, ¬
"Kern Above is: " & kern above & return as string, ¬
"Ligatures On is: " & ligatures on & return, ¬
"Maintain Leading is: " & maintain leading & return, ¬
"Ligatures Break Above: " & maximum ligature track & return as string, ¬
"Small Caps Horizontal Scale is: " & small caps horizontal scale & return as string, ¬
"Small Caps Vertical Scale is: " & small caps vertical scale & return as string, ¬
"Subscript Horizontal Scale is: " & subscript horizontal scale & return as string, ¬
"Subscript Offset is: " & subscript offset & return as string, ¬
"Subscript Vertical Scale is: " & subscript vertical scale & return as string, ¬
"Superscript Horizontal Scale is: " & superscript horizontal scale & return as string, ¬
"Superscript Offset is: " & superscript offset & return as string, ¬
"Superscript Vertical Scale is: " & superscript vertical scale & return as string, ¬
"Typesetting Leading Mode is: " & typesetting leading mode & return}
end tell
end getTypoPrefs
tell application "QuarkXPress™"
activate
make document at beginning with properties {page width:"8.5”", page height:"11”", automatic text box:false}
tell page 1 of document 1
try
delete every text box
on error
end try
make text box at beginning with properties {bounds:{"0.5”", "0.5”", "10.5”", "8”"}}
end tell
tell text box 1 of document 1
set contents of story 1 to " "
set columns to 2
try
set font of story 1 to "Times"
on error
set font of story 1 to (name of item 1 of (font list as list))
end try
set size of story 1 to 12
--Get Application Preferences
set contents of paragraph 1 to "Application Preferences" & return
set contents of last paragraph to " "
set style of paragraph 1 to bold
set style of last paragraph to plain
copy every item of my getAppPreferences() as text to paragraph 2
set numAppparagraphs to count of paragraphs in story 1
--Get Default Document Preferences
set contents of paragraph numAppparagraphs to "Default Document Preferences" & return
set contents of last paragraph to " "
set style of paragraph numAppparagraphs to bold
set style of last paragraph to plain
copy every item of my getDefaultDocPrefs() as text to paragraph (numAppparagraphs + 1)
set numDefDocParagraphs to count of paragraphs in story 1
--Get General Preferences
set contents of paragraph numDefDocParagraphs to "General Preferences" & return
set contents of last paragraph to " "
set style of paragraph numDefDocParagraphs to bold
set style of last paragraph to plain
copy every item of my getGeneralPrefs() as text to paragraph (numDefDocParagraphs + 1)
set numGenParagraphs to count of paragraphs in story 1
--Get Typographic Preferences
set contents of paragraph numGenParagraphs to "Typographic Preferences" & return
set contents of last paragraph to " "
set style of paragraph numGenParagraphs to bold
set style of last paragraph to plain
copy every item of my getTypoPrefs() as text to paragraph (numGenParagraphs + 1)
tell story 1
try
set every paragraph whose it = "Accurate Blends is: TRUE" to "Accurate Blends is: FALSE"
on error
set every paragraph whose it = "Accurate Blends is: FALSE" to "Accurate Blends is: TRUE"
end try
try
set every word whose it = "TRUE" to "ON"
on error
end try
try
set every word whose it = "FALSE" to "OFF"
on error
end try
--Color/Gray Tiff Resolution Translations
try
set every word whose it = "08BT" to "8 bit"
on error
end try
try
set every word whose it = "16BT" to "16 bit"
on error
end try
try
set every word whose it = "32BT" to "32 bit"
on error
end try
try
set every word whose it = "L016" to "16 levels"
on error
end try
try
set every word whose it = "L256" to "256 levels"
on error
end try
--Auto Page Insertion Translations
try
set every word whose it = "TAPO" to "No Auto Page Insertion"
on error
end try
try
set every word whose it = "TAPS" to "End of Story"
on error
end try
try
set every word whose it = "TAPX" to "End of Section"
on error
end try
try
set every word whose it = "TAPD" to "End of Document"
on error
end try
--Auto Picture Import Translations
try
set every word whose it = "TIOF" to "Auto Import Off"
on error
end try
try
set every word whose it = "TION" to "Auto Import On"
on error
end try
try
set every word whose it = "TIOV" to "Auto Import On (verify)"
on error
end try
--Measurement Translations
try
set every word whose it = "FXIN" to "inches"
on error
end try
try
set every word whose it = "FXID" to "inches decimal"
on error
end try
try
set every word whose it = "FXPI" to "picas"
on error
end try
try
set every word whose it = "FXPT" to "points"
on error
end try
try
set every word whose it = "FXMM" to "millimeters"
on error
end try
try
set every word whose it = "FXCM" to "centimeters"
on error
end try
try
set every word whose it = "FXC" to "ciceros"
on error
end try
end tell
end tell
end tell